home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 44 / demos / joydraw.bas < prev    next >
Encoding:
BASIC Source File  |  1986-08-15  |  921 b   |  26 lines
  1. 5     ' PROGRAM BY -KURTY BOND-    May 13, 1986 A.D.
  2. 6     ' USE JOYSTICK TO DRAW IN ANY DIRECTION & FIRE TO CHANGE COLOR.
  3. 15    FULLW 2:CLEARW 2
  4. 16    X=303:Y=83
  5. 20    COLOR 1,1,1:FILL 0,0
  6. 30    COLOR 1,0,C
  7. 70    POKE &HFFFC02,&H0014'   Turn off mouse
  8. 80    POKE &HFFFC02,&H0014:JOYSTICK=PEEK(&HFFFC02)
  9. 90    IF JOYSTICK=511 THEN Y=Y-1
  10. 100   IF JOYSTICK=2559 THEN X=X+1:Y=Y-1
  11. 110   IF JOYSTICK=2303 THEN X=X+1
  12. 120   IF JOYSTICK=2815 THEN X=X+1:Y=Y+1
  13. 130   IF JOYSTICK=767 THEN Y=Y+1
  14. 140   IF JOYSTICK=1791 THEN X=X-1:Y=Y+1
  15. 155   IF JOYSTICK=1279 THEN X=X-1
  16. 160   IF JOYSTICK=1535 THEN X=X-1:Y=Y-1
  17. 170   IF JOYSTICK<0 THEN GOTO 200
  18. 175   IF RES=0 AND C>16 THEN C=0
  19. 176   IF RES=1 AND C>3 THEN C=0
  20. 178   LINEF X,Y,X,Y
  21. 180   POKE &HFFFC02,&H0008'    Turn on mouse"
  22. 190   GOTO 30
  23. 200   COLOR 1,3,0:LINEF 0,166,X,Y:LINEF 607,166,X,Y
  24. 210   COLOR 1,0,0:LINEF 9,166,X,Y:LINEF 507,166,X,Y
  25. 220   GOTO 30
  26. ə